﻿Public Class registrarSatelite

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles Label9.Click

    End Sub

    Private Sub Nombre_Click(sender As Object, e As EventArgs) Handles Nombre.Click

    End Sub

    Private Sub btnRegistrar_Click(sender As Object, e As EventArgs) Handles btnRegistrar.Click
        Dim idPlaneta As String
        Dim distanciaMediaSol As String
        Dim caracteristicas As String


        idPlaneta = txtIdPlaneta.Text
        distanciaMediaSol = txtDistanciaMediaSol.Text
        caracteristicas = txtCaracteristicas.Text

        If (idPlaneta = "" & distanciaMediaSol = " " & caracteristicas = " ") Then

        Else
            MsgBox("Debe llenar todos los espacios solicitados")
        End If



    End Sub
End Class